Private Sub أمر4_Click()
     DoCmd.OutputTo acOutputQuery, "tblItExcel ", "ExcelWorkbook(*.xlsx)", , False, "", , acExportQualityPrint
End Sub